object Unity_CariAktarimF: TUnity_CariAktarimF
  Left = 204
  Top = 179
  Width = 961
  Height = 441
  Caption = 'Unity Cari Manuel Aktarim'
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object wwDBGrid1: TwwDBGrid
    Left = 0
    Top = 77
    Width = 953
    Height = 296
    DisableThemes = False
    ControlType.Strings = (
      'caspercarikod;CustomEdit;wwDBLookupCombo1;T')
    Selected.Strings = (
      'LOGICALREF'#9'6'#9'Unity ID'#9'F'
      'CODE'#9'13'#9'Unity Carikodu'#9'F'
      'DEFINITION_'#9'39'#9'Unity Firma Ad'#305#9'F'
      'caspercarikod'#9'14'#9'Unity <=> Casper'#9'F'
      'unitycarikod'#9'8'#9'Casper ID'#9'F'
      'Carikodu'#9'15'#9'Casper Carikodu'#9'F'
      'Firmaadi'#9'38'#9'Casper Firma Ad'#305#9'F')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    DataSource = Casper_Unity_CariS
    KeyOptions = [dgEnterToTab]
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit, dgWordWrap]
    PopupMenu = PopupMenu1
    TabOrder = 0
    TitleAlignment = taLeftJustify
    TitleFont.Charset = TURKISH_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = True
    UseTFields = False
    OnTitleButtonClick = wwDBGrid1TitleButtonClick
  end
  object Panel1: TPanel
    Left = 0
    Top = 373
    Width = 953
    Height = 41
    BevelOuter = bvNone
    TabOrder = 1
    DesignSize = (
      953
      41)
    object Label1: TLabel
      Left = 299
      Top = 7
      Width = 58
      Height = 14
      Caption = 'Yeni Kay'#305't :'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Visible = False
    end
    object Label3: TLabel
      Left = 278
      Top = 23
      Width = 80
      Height = 14
      Caption = 'De'#287'i'#351'en Kay'#305't :'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Visible = False
    end
    object otomatikack: TBitBtn
      Left = 736
      Top = 11
      Width = 155
      Height = 25
      Caption = 'TO-TY-TV-MM-Z Otomatik A'#231
      TabOrder = 6
      Visible = False
      OnClick = otomatikackClick
    end
    object bkaydet: TBitBtn
      Left = 8
      Top = 10
      Width = 65
      Height = 25
      Caption = 'Kaydet'
      TabOrder = 0
      OnClick = bkaydetClick
    end
    object bvazgec: TBitBtn
      Left = 80
      Top = 10
      Width = 57
      Height = 25
      Caption = 'Vazge'#231
      TabOrder = 1
      OnClick = bvazgecClick
    end
    object BitBtn1: TBitBtn
      Left = 146
      Top = 10
      Width = 119
      Height = 25
      Caption = 'Unity Carileri '#199'ek'
      TabOrder = 2
      Visible = False
      OnClick = BitBtn1Click
    end
    object BitBtn4: TBitBtn
      Left = 655
      Top = 9
      Width = 121
      Height = 25
      Anchors = [akTop, akRight]
      Caption = 'Casper Cari Kod Yenile'
      TabOrder = 3
      Visible = False
      OnClick = BitBtn4Click
    end
    object bkapat: TBitBtn
      Left = 867
      Top = 9
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = 'Kapat'
      TabOrder = 4
      OnClick = bkapatClick
    end
    object StaticText1: TStaticText
      Left = 373
      Top = 7
      Width = 59
      Height = 18
      Caption = 'Toplam [ 0 ]'
      TabOrder = 5
      Visible = False
    end
    object BitBtn2: TBitBtn
      Left = 515
      Top = 10
      Width = 119
      Height = 25
      Caption = 'Sevkiyat Adresleri '#199'ek'
      TabOrder = 7
      Visible = False
      OnClick = BitBtn2Click
    end
    object StaticText2: TStaticText
      Left = 373
      Top = 23
      Width = 59
      Height = 18
      Caption = 'Toplam [ 0 ]'
      TabOrder = 8
      Visible = False
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 953
    Height = 77
    TabOrder = 2
    DesignSize = (
      953
      77)
    object LBLAdet: TLabel
      Left = 844
      Top = 4
      Width = 105
      Height = 17
      Alignment = taCenter
      Anchors = [akTop, akRight]
      AutoSize = False
      Caption = '_'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object GroupBox1: TGroupBox
      Left = 5
      Top = 1
      Width = 348
      Height = 72
      Caption = 'Unity Cari'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object Label2: TLabel
        Left = 8
        Top = 18
        Width = 3
        Height = 14
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object edCariKod: TEdit
        Left = 80
        Top = 14
        Width = 260
        Height = 22
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnEnter = edCariKodEnter
      end
      object rbnCariKod: TRadioButton
        Left = 8
        Top = 16
        Width = 73
        Height = 17
        Caption = 'Cari Kodu '
        Checked = True
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        TabStop = True
        OnClick = rbnCariKodClick
      end
    end
    object bListele: TButton
      Left = 773
      Top = 5
      Width = 62
      Height = 25
      Caption = 'Listele'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      Visible = False
      OnClick = bListeleClick
    end
    object pbar: TProgressBar
      Left = 842
      Top = 55
      Width = 108
      Height = 17
      Anchors = [akTop, akRight]
      TabOrder = 2
    end
    object bUnityCariCek: TButton
      Left = 254
      Top = 41
      Width = 91
      Height = 27
      Caption = 'Unity Cari '#199'ek'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = bUnityCariCekClick
    end
  end
  object wwDBLookupCombo1: TwwDBLookupCombo
    Left = 376
    Top = 120
    Width = 88
    Height = 22
    DisableThemes = False
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'carikodu'#9'20'#9'carikodu'#9#9)
    LookupTable = Casper_Cari
    LookupField = 'carikod'
    Navigator = False
    TabOrder = 3
    Visible = False
    AutoDropDown = False
    ShowButton = True
    AllowClearKey = False
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 953
    Height = 414
    Align = alClient
    Caption = 'Cari Aktar'#305'm '#304'ptal'
    TabOrder = 4
  end
  object Casper_Unity_CariS: TDataSource
    DataSet = Casper_Unity_Cari
    Left = 64
    Top = 168
  end
  object Casper_Cari: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select  carikod,carikodu,firmaadi from Cari'
      'order by carikodu')
    Left = 64
    Top = 120
  end
  object Casper_Unity_Cari: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      
        'select  top 1 C.carikod,C.Carikodu,C.unitycarikod,C.Firmaadi,U.*' +
        ' '
      '  from Unity_Cari U join Cari C '
      'on C.carikod=U.caspercarikod'
      'order by code')
    Left = 64
    Top = 272
  end
  object Casper_Cari_Bul: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Carikodu'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'Unitycarikod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'select  * from cari with(nolock) where (Carikodu=:Carikodu) or (' +
        'Unitycarikod=:Unitycarikod)')
    Left = 64
    Top = 216
  end
  object PopupMenu1: TPopupMenu
    Left = 640
    Top = 464
    object CariBul1: TMenuItem
      Caption = 'Cari E'#351'le'#351'tir'
      OnClick = CariBul1Click
    end
    object YeniCariA1: TMenuItem
      Caption = 'Yeni Cari A'#231
      OnClick = YeniCariA1Click
    end
  end
  object CariEkle: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Cari  with (nolock) where carikod=0')
    Left = 392
    Top = 264
  end
  object Unity_DegisenCariCek: TADOQuery
    Connection = dm.Connect_Unity
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 776
    Top = 224
  end
  object MaxZaman: TADOQuery
    Connection = dm.Connect_Unity
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'SELECT'
      'zaman1=max((Convert(Varchar(8),CAPIBLOCK_CREADEDDATE,112)+'
      
        'str(CAPIBLOCK_CREATEDHOUR,2)+str(CAPIBLOCK_CREATEDMIN,2)+str(CAP' +
        'IBLOCK_CREATEDSEC,2))), '
      'zaman2=max((Convert(Varchar(8),CAPIBLOCK_MODIFIEDDATE,112)+'
      
        'str(CAPIBLOCK_MODIFIEDHOUR,2)+str(CAPIBLOCK_MODIFIEDMIN,2)+ str(' +
        'CAPIBLOCK_MODIFIEDSEC,2)))'
      'FROM UNITY_DB..LG_018_CLCARD')
    Left = 392
    Top = 320
  end
  object soncekiszamani: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select soncekiszamani_cari from unity_servis')
    Left = 392
    Top = 376
  end
  object Casper_UnityCariIDBul: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'LOGICALREF'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'select * from unity_Cari with(nolock) where LOGICALREF=:LOGICALR' +
        'EF')
    Left = 64
    Top = 320
  end
  object Casper_Cari_BulID: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Carikod'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from Cari with(nolock)'
      'where carikod=:Carikod')
    Left = 568
    Top = 251
  end
  object Casper_Unity_CariOgretmen: TADOQuery
    Connection = dm.connect
    Parameters = <>
    SQL.Strings = (
      'select * from unity_cari '
      'where code in ('
      
        'select code from unity_cari where caspercarikod is null and code' +
        ' like '#39'TO%'#39' and code not in (select carikodu from cari))')
    Left = 776
    Top = 128
  end
  object Casper_Unity_Cari_ty_tv_mm: TADOQuery
    Connection = dm.connect
    Parameters = <>
    SQL.Strings = (
      'select * from unity_cari where code in ('
      
        'select code from unity_cari where caspercarikod is null and (cod' +
        'e like '#39'TV%'#39' or code like '#39'TY%'#39' or code like '#39'MM%'#39' or code like ' +
        #39'Z%'#39') and code not in (select carikodu from cari))')
    Left = 608
    Top = 128
  end
  object DsCasperCari: TDataSource
    DataSet = Casper_Cari
    Left = 64
    Top = 488
  end
  object adoZamansizCariCek: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'CODE'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 17
        Value = Null
      end>
    SQL.Strings = (
      
        'insert into Unity_Cari (LOGICALREF,CODE,DEFINITION_,ADDR1,ADDR2,' +
        'CITY,TELNRS1,TELNRS2,FAXNR,TAXNR,'
      'TAXOFFICE,INCHARGE,TOWN,CITYCODE,CYPHCODE,SPECODE)'
      
        'select LOGICALREF,CODE,DEFINITION_,ADDR1,ADDR2,CITY,TELNRS1,TELN' +
        'RS2,FAXNR,TAXNR,'
      'TAXOFFICE,INCHARGE,TOWN,CITYCODE,CYPHCODE,SPECODE '
      'from UNITY_DB..LG_018_CLCARD where CODE=:CODE')
    Left = 768
    Top = 296
  end
  object adoKont: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'CODE'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 17
        Value = Null
      end>
    SQL.Strings = (
      
        'select LOGICALREF,CODE,DEFINITION_,ADDR1,ADDR2,CITY,TELNRS1,TELN' +
        'RS2,FAXNR,TAXNR,'
      'TAXOFFICE,INCHARGE,TOWN,CITYCODE,CYPHCODE,SPECODE '
      'from UNITY_DB..LG_018_CLCARD where CODE=:CODE')
    Left = 64
    Top = 432
  end
  object adoSevkiyatekle: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tbl_SevkiyatAdres where ID=0')
    Left = 248
    Top = 120
  end
  object adoMaxUniSevZaman: TADOQuery
    Connection = dm.Connect_Unity
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'SELECT'
      'zaman1=max((Convert(Varchar(8),CAPIBLOCK_CREADEDDATE,112)+'
      
        'str(CAPIBLOCK_CREATEDHOUR,2)+str(CAPIBLOCK_CREATEDMIN,2)+str(CAP' +
        'IBLOCK_CREATEDSEC,2))), '
      'zaman2=max((Convert(Varchar(8),CAPIBLOCK_MODIFIEDDATE,112)+'
      
        'str(CAPIBLOCK_MODIFIEDHOUR,2)+str(CAPIBLOCK_MODIFIEDMIN,2)+ str(' +
        'CAPIBLOCK_MODIFIEDSEC,2)))'
      'FROM UNITY_DB..LG_018_SHIPINFO')
    Left = 248
    Top = 168
  end
  object adosoncekiszamani: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select soncekiszamani_sevkiyat from unity_servis')
    Left = 248
    Top = 224
  end
  object UnityDegisenSevkiyatCek: TADOQuery
    Connection = dm.Connect_Unity
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'baszaman'
        Size = -1
        Value = Null
      end
      item
        Name = 'bitzaman'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'SELECT '
      '*'
      ''
      'FROM  UNITY_DB..LG_018_SHIPINFO'
      'where  (case recstatus when 2 then '
      '(Convert(Varchar(8),CAPIBLOCK_MODIFIEDDATE,112)+'
      'str(CAPIBLOCK_MODIFIEDHOUR,2)+'
      'str(CAPIBLOCK_MODIFIEDMIN,2)+'
      'str(CAPIBLOCK_MODIFIEDSEC,2))'
      '       else '
      '(Convert(Varchar(8),CAPIBLOCK_CREADEDDATE,112)+'
      'str(CAPIBLOCK_CREATEDHOUR,2)+'
      'str(CAPIBLOCK_CREATEDMIN,2)+'
      'str(CAPIBLOCK_CREATEDSEC,2))'
      'end)> :baszaman'
      '       AND'
      ' (case recstatus when 2 then '
      '(Convert(Varchar(8),CAPIBLOCK_MODIFIEDDATE,112)+'
      'str(CAPIBLOCK_MODIFIEDHOUR,2)+'
      'str(CAPIBLOCK_MODIFIEDMIN,2)+'
      'str(CAPIBLOCK_MODIFIEDSEC,2))'
      '       else '
      '(Convert(Varchar(8),CAPIBLOCK_CREADEDDATE,112)+'
      'str(CAPIBLOCK_CREATEDHOUR,2)+'
      'str(CAPIBLOCK_CREATEDMIN,2)+'
      'str(CAPIBLOCK_CREATEDSEC,2)) '
      'end)<= :bitzaman')
    Left = 248
    Top = 280
  end
  object Casper_UnitySevkiyatBul: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'UNITYCODE'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select * from tbl_SevkiyatAdres where UNITYCODE=:UNITYCODE')
    Left = 248
    Top = 336
  end
  object Casper_Sevkiyat_BulID: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'KODU'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select * from tbl_SevkiyatAdres'
      'where KODU=:KODU')
    Left = 248
    Top = 387
  end
  object adoSevkCariBul: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'CKOD'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from Cari where unitycarikod=:CKOD')
    Left = 248
    Top = 443
  end
  object adoCopyUniZaman: TADOQuery
    Connection = dm.Connect_Unity
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'SELECT zaman='
      
        'max((case recstatus when 1 then (Convert(Varchar(8),CAPIBLOCK_CR' +
        'EADEDDATE,112)+'
      
        'str(CAPIBLOCK_CREATEDHOUR,2)+str(CAPIBLOCK_CREATEDMIN,2)+str(CAP' +
        'IBLOCK_CREATEDSEC,2))'
      '       else (Convert(Varchar(8),CAPIBLOCK_MODIFIEDDATE,112)+'
      'str(CAPIBLOCK_MODIFIEDHOUR,2)+str(CAPIBLOCK_MODIFIEDMIN,2)+'
      'str(CAPIBLOCK_MODIFIEDSEC,1)) end))'
      'FROM UNITY_DB..LG_018_SHIPINFO')
    Left = 392
    Top = 168
  end
end
